Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A312A.CMD < prev next >

Wrap

Text File | 1987-01-01 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 312 │" locate 0,8 message s8 locate 0,17 message "│ Chicago, IL │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Epson .................. 374-5772 V- Download Express ....... 560-0559 ║" message "║ B- DEC Rainbow ............ 490-9206 W- Automated Systems ...... 279-1053 ║" message "║ C- Risk and Insurance .... 251-7561 X- Computers Plus ......... 452-0333 ║" message "║ D- The Grand Stand......... 351-6702 Y- Non-Profit Info Center . 752-7412 ║" message "║ E- PMC Store .............. 383-3144 Z- Word Processing ........ 491-6995 ║" message "║ F- Lakes Region BBS ....... 872-8086 0- Biz B.B.S. ............. 729-2101 ║" message "║ G- IBBS SuperBoard ........ 882-4227 1- National Public Comp ... 863-4612 ║" message "║ H- Chicago Computer Soc ... 942-0706 2- PC Information Center .. 882-4145 ║" message "║ I- Bolingbrook ............ 972-0628 3- Phydeaux Fido 615 ...... 724-8874 ║" message "║ J- William Knopp, Sysop ... 674-1638 4- Illini Data ............ 759-5402 ║" message "║ K- Mike Jacobs, Sysop ..... 788-1264 5- Colossus ............... 799-4434 ║" message "║ L- Windmill ............... 232-1250 6- Date-A-Base ............ 974-3112 ║" message "║ M- Termination Point RBBS . 357-3484 7- Software Exchange BBS .. 725-7586 ║" message "║ N- Lode Data Systems ...... 448-8290 8- ........................ ...-.... ║" message "║ O- The Grinch Tech BBS .... 661-0394 9- ........................ ...-.... ║" message "║ P- Norcomm RBBS ........... 679-2650 @- ........................ ...-.... ║" message "║ Q- Statewide Micro ........ 932-0896 #- ........................ ...-.... ║" message "║ R- Business-Pro ........... 940-6496 $- ........................ ...-.... ║" message "║ S- Rainbow Computers ...... 745-8666 %- ........................ ...-.... ║" message "║ T- Chicago Syslink ........ 662-4442 &- ........................ ...-.... ║" message "║ U- Ye Olde Archives ....... 276-4159 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "374-5772" assign s6 "Epson " gosub dial else endif find s0 "B" if found assign s8 "490-9206" assign s6 "DEC Rainbow " gosub dial else endif find s0 "C" if found assign s8 "251-7561" assign s6 "RIMS " gosub dial else endif find s0 "D" if found assign s8 "351-6702" assign s6 "The Grand Stand " gosub dial else endif find s0 "E" if found assign s8 "383-3144" assign s6 "PMC Store " gosub dial else endif find s0 "F" if found assign s8 "872-8086" assign s6 "Lakes Region BBS " gosub dial else endif find s0 "G" if found assign s8 "882-4227" assign s6 "IBBS Superboard " gosub dial else endif find s0 "H" if found assign s8 "942-0706" assign s6 "Chicago Computer Society " gosub dial else endif find s0 "I" if found assign s8 "972-0628" assign s6 "Bolingbrook " gosub dial else endif find s0 "J" if found assign s8 "674-1638" assign s6 "William Knopp, Sysop " gosub dial else endif find s0 "K" if found assign s8 "788-1264" assign s6 "Mike Jacobs, Sysop " gosub dial else endif find s0 "L" if found assign s8 "232-1250" assign s6 "Windmill " gosub dial else endif find s0 "M" if found assign s8 "357-3484" assign s6 "Termination Point RBBS " gosub dial else endif find s0 "N" if found assign s8 "448-8290" assign s6 "Lode Data Systems " gosub dial else endif find s0 "O" if found assign s8 "661-0394" assign s6 "The Grinch Tech BBS " gosub dial else endif find s0 "P" if found assign s8 "679-2650" assign s6 "Norcomm RBBS " gosub dial else endif find s0 "Q" if found assign s8 "932-0896" assign s6 "Statewide Micro " gosub dial else endif find s0 "R" if found assign s8 "940-6496" assign s6 "Business-Pro " gosub dial else endif find s0 "S" if found assign s8 "745-8666" assign s6 "Rainbow Computers " gosub dial else endif find s0 "T" if found assign s8 "662-4442" assign s6 "Chicago Syslink " gosub dial else endif find s0 "U" if found assign s8 "276-4159" assign s6 "Ye Olde Archives " gosub dial else endif find s0 "V" if found assign s8 "560-0559" assign s6 "Download Express " gosub dial else endif find s0 "W" if found assign s8 "279-1053" assign s6 "Automated Systems " gosub dial else endif find s0 "X" if found assign s8 "452-0333" assign s6 "Computers Plus " gosub dial else endif find s0 "Y" if found assign s8 "752-7412" assign s6 "Non-Profit Info Center " gosub dial else endif find s0 "Z" if found assign s8 "491-6995" assign s6 "Word Processing " gosub dial else endif find s0 "0" if found assign s8 "729-2101" assign s6 "Biz BBS " gosub dial else endif find s0 "1" if found assign s8 "863-4612" assign s6 "National Public Computers " gosub dial else endif find s0 "2" if found assign s8 "882-4145" assign s6 "PC Information Center " gosub dial else endif find s0 "3" if found assign s8 "724-8874" assign s6 "Phydeaux Fido 615 " gosub dial else endif find s0 "4" if found assign s8 "759-5402" assign s6 "Illini Data " gosub dial else endif find s0 "5" if found assign s8 "799-4434" assign s6 "COLOSSUS " gosub dial else endif find s0 "6" if found assign s8 "974-3112" assign s6 "Date-A-Base " gosub dial else endif find s0 "7" if found assign s8 "725-7586" assign s6 "Software Exchange BBS " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "8" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit